home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Geos / Hackers / GeosHacker / print notes (.txt) < prev   
Encoding:
Commodore BASIC  |  2019-04-13  |  2.7 KB  |  54 lines
  1. 1000 POKE53280,0:POKE53281,0:PRINT"[147]":POKE53272,23:POKE808,225:DIMTK(200),SC(200)
  2. 1040 INPUT"[196]RIVE 8 OR 9";DR:IFDR<8ORDR>9THEN1040
  3. 1060 PRINT"[147]        [204]OCATING '[206][207][212][197][211]' FILE....":NT$=CHR$(78)+CHR$(111)+CHR$(116)+CHR$(101)+CHR$(115):P(1)=5:P(2)=37:P(3)=69:P(4)=101:P(5)=133:P(6)=165:P(7)=197:P(8)=229:::OPEN15,DR,15:PRINT#15,"I0":INPUT#15,EN$,EM$,ET$,ES$:IFEN$<>"00"GOTO1540
  4. 1170 OPEN2,DR,2,"#":::FORS=1TO19:PRINT"[145]          TRACK: 18 - SECTOR:"S:PRINT#15,"U1";2;0;18;S:INPUT#15,EN$,EM$,ET$,ES$:IFEN$<>"00"GOTO1400
  5. 1240 ::FORF=1TO8:DN$="":PRINT#15,"B-P";2;P(F):FORI=1TO5:GET#2,B$:IFB$=""THENB$=CHR$(0)
  6. 1310 A=ASC(B$):B(I)=A:IFA>127THENA=A-128
  7. 1340 IFA=34THENA=63
  8. 1350 DN$=DN$+CHR$(A):NEXT:IFDN$=NT$THEN1480
  9. 1380 NEXT:NEXT
  10. 1400 CLOSE2:PRINT"[147][212]HE '[206][207][212][197][211]' FILE IS NOT ON THE DISK.":PRINT"[208]LEASE INSERT PROPER DISK IN DRIVE.":CLOSE15:GOTO1040:OPEN15,DR,15:PRINT#15,"I0":INPUT#15,EN$,EM$,ET$,ES$:CLOSE15:GOTO2140::
  11. 1480 PRINT#15,"B-P";2;P(F)-2:GET#2,T$,S$:T=ASC(T$):S=ASC(S$):CLOSE2:INPUT#15,EN$,EM$,ET$,ES$
  12. 1540 CLOSE15:::OPEN15,DR,15:OPEN5,DR,5,"#":PRINT#15,"B-R:"5;0;T;S:B$="":Z=0:ZZ=0:GET#5,B0$:::FORL=2TO255STEP2:Z=Z+1:ZZ=ZZ+1:GET#5,A$:IFASC(A$+CHR$(0))=0THEN1690
  13. 1670 TK(Z)=ASC(A$+CHR$(0)):IFST=0THENB$=B$+A$
  14. 1690 GET#5,A$:IFASC(A$+CHR$(0))=255THENGOSUB1770:GOTO1740
  15. 1710 IFASC(A$+CHR$(0))=0THEN1750
  16. 1720 SC(Z)=ASC(A$+CHR$(0)):IFST=0THENB$=B$+A$
  17. 1740 NEXT
  18. 1750 CLOSE5:CLOSE15:GOTO1800::
  19. 1770 TK(Z)=0:SC(Z)=0:ZZ=ZZ-1:RETURN::
  20. 1800 OPEN15,DR,15:OPEN5,DR,5,"#":X=0:RG=0::
  21. 1840 PRINT"[147][154][212]HERE ARE"ZZ-1"PAGES IN THE NOTES FILE.
  22. 1850 [133]"CONTSTR$ISPLAY WHAT PAGE (0=STOP)";X:[139]X[178]0[167]2130
  23. 1870 RG[178]0:[141]2220:[139]RG[178]1[167]1840
  24. 1880 [139]X[179]10[167][153]"CONTLOAD                (null)AGE"X"CMD                  WAIT
  25. 1890 IFX>9ANDX<100THENPRINT"[154][147]                [208]AGE"X"[157]                 [146]
  26. 1900 [139]X[177]100[167][153]"CONTLOAD                (null)AGE"X"CMD                WAIT
  27. 1910 ::PRINT"              [208]LEASE [215]AIT":PRINT"           [212]RANSLATING [193][211][195][201][201]":T=TK(X):S=SC(X):PRINT#15,"B-R:"5;0;T;S:B$="":::GET#5,A$:FORL=0TO255:GET#5,A$:IFASC(A$+CHR$(0))=0THEN2050
  28. 2030 IFST=0THENB$=B$+A$
  29. 2040 NEXT
  30. 2050 GOSUB2350:GOSUB2160:PRINT""B$:PRINT"":INPUT"[154][208]RINT THIS PAGE ([217]/[206])";A$:IFA$="Y"THENGOSUB2280
  31. 2110 PRINT"[145][145][145]":GOTO1850
  32. 2130 CLOSE5:CLOSE15
  33. 2140 PRINT"[147][151]":POKE53280,1:POKE53281,1:GOTO2530
  34. 2160 PRINT"[145][145][145]":FORV=1TO15:PRINT"                            ":NEXT:RETURN::
  35. 2220 IFTK(X)=0ANDSC(X)=0THEN2240
  36. 2230 GOTO2270
  37. 2240 PRINT"[212]HERE ARE NO NOTES ON [208]AGE"X:RG=1:PRINT"[200]IT [197][206][212][197][210] TO CONTINUE.
  38. 2260 [161]I$:[139]I$[178]""[167]2260
  39. 2270 [142]
  40. 2280 [159]4,4,7:[152]4,B$:[160]4:[142]
  41. 2350 L[178][195](B$):BB$[178]"":[129]CP[178]1[164]L:CC$[178][202](B$,CP,1):CA[178][198](CC$):[139]CA[177]96[175]CA[179]123[167]2440
  42. 2410 [139]CA[177]64[175]CA[179]91[167]2470
  43. 2420 BB$[178]BB$[170]CC$:[137]2500
  44. 2440 CA[178]CA[171]32:CC$[178][199](CA):[137]2420
  45. 2470 CA[178]CA[170]32:CC$[178][199](CA):[137]2420
  46. 2500 [130]:B$[178]BB$:[142]
  47. 2530 [151]53272,21:[151]53280,0:[151]53281,0:A$[178]"":[129]A[178]49152[164]49166:A$[178]A$[170][199]([194](A)):[130]:[151]821,1:[139][201](A$,9)[179][177]"GEOS BOOT"[167][151]821,0
  48. 2610 [137]2650
  49. 2650 [139][194](821)[178]0[167][158]64738
  50. 2660 [153]"LOADPRINTLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN":[153]"CONT      INSERT YOUR 'GEOSCONT' BOOT DISK":[153]"               IN DRIVE 8":[153]"        PRESS RETURN WHEN READY":[153]"PRINTLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN":[151]198,0
  51. 2710 [161]A$:[139]A$[178]""[167]2710
  52. 2720 [159]8,8,8,"0:GEOS BOOT,S,R":[159]15,8,15:[132]15,A$,B$:[160]8:[160]15:[139]A$[179][177]"64"[167]2660
  53. 2740 [151]53280,14:[151]53281,6:[153]"LOADNEW":[153]"LOAD"[199](34)":*"[199](34);:[153]",8,1":[151]198,3:[151]631,19:[151]632,13:[151]633,13:[128]
  54.